home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1994 April / Inside Multimedia CD-ROM (April 1994).iso / prg / gs / gssource.exe / ECHOGS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-24  |  4.4 KB  |  167 lines
  1. /* Copyright (C) 1992 Aladdin Enterprises.  All rights reserved.
  2.    Distributed by Free Software Foundation, Inc.
  3.  
  4. This file is part of Ghostscript.
  5.  
  6. Ghostscript is distributed in the hope that it will be useful, but
  7. WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. to anyone for the consequences of using it or for whether it serves any
  9. particular purpose or works at all, unless he says so in writing.  Refer
  10. to the Ghostscript General Public License for full details.
  11.  
  12. Everyone is granted permission to copy, modify and redistribute
  13. Ghostscript, but only under the conditions described in the Ghostscript
  14. General Public License.  A copy of this license is supposed to have been
  15. given to you along with Ghostscript so you can know your rights and
  16. responsibilities.  It should be in a file named COPYING.  Among other
  17. things, the copyright notice and this notice must be preserved on all
  18. copies.  */
  19.  
  20. /* echogs.c */
  21. /* 'echo'-like utility */
  22. #include <stdio.h>
  23. #include <ctype.h>
  24. #include <string.h>
  25.  
  26. /*
  27.  * Usage:
  28.     echogs [-w[b] file | -a[b] file] [-n]
  29.       (-x hexstring | -q string | -s | -i | -r file)* [-] string*
  30.  * Echoes string(s), or the binary equivalent of hexstring(s).
  31.  * If -w, writes to file; if -a, appends to file; if neither,
  32.  * writes to stdout.  -wb and -ab open the file in binary mode.
  33.  * If -n, does not append a newline to the output.  -s writes a space.
  34.  * -i means read from stdin, treating each line as an argument.
  35.  * -r means read from a named file in the same way.
  36.  * -X means treat any following literals as hex rather than string data.
  37.  * - alone means treat the rest of the line as literal data,
  38.  * even if the first string begins with a -.
  39.  * Inserts spaces automatically between the trailing strings,
  40.  * but nowhere else; in particular,
  41.     echogs -q a b
  42.  * writes 'ab', in contrast to
  43.     echogs -q a -s b
  44.  * which writes 'a b'.
  45.  *
  46.  * This program exists solely to get around omissions, problems, and
  47.  * incompatibilities in the various shells and utility environments
  48.  * that Ghostscript must deal with.  Don't count on it staying the same
  49.  * from one Ghostscript release to another!
  50.  */
  51.  
  52. main(argc, argv)
  53.     int argc;
  54.     char *argv[];
  55. {    FILE *out = stdout;
  56.     FILE *in;
  57.     char *fmode;
  58.     char *fname = 0;
  59.     int newline = 1;
  60.     int interact = 0;
  61. #define LINESIZE 1000
  62.     char line[LINESIZE];
  63.     char sw = 0, sp = 0, hexx = 0;
  64.     char **argp = argv + 1;
  65.     int nargs = argc - 1;
  66.     if ( nargs > 0 && (*argp)[0] == '-' &&
  67.           ((*argp)[1] == 'w' || (*argp)[1] == 'a')
  68.        )
  69.     {    if ( nargs < 2 ) return 1;
  70.         fmode = *argp + 1;
  71.         fname = argp[1];
  72.         argp += 2, nargs -= 2;
  73.     }
  74.     if ( nargs > 0 && !strcmp(*argp, "-n") )
  75.     {    newline = 0;
  76.         argp++, nargs--;
  77.     }
  78.     if ( fname != 0 )
  79.     {    out = fopen(fname, fmode);
  80.         if ( out == 0 ) return 1;
  81.     }
  82.     while ( 1 )
  83.     {    char *arg;
  84.         if ( interact )
  85.         {    if ( fgets(line, LINESIZE, in) == NULL )
  86.             {    interact = 0;
  87.                 if ( in != stdin ) fclose(in);
  88.                 continue;
  89.             }
  90.             /* Remove the terminating \n. */
  91.             line[strlen(line) - 1] = 0;
  92.             arg = line;
  93.         }
  94.         else
  95.         {    if ( nargs == 0 ) break;
  96.             arg = *argp;
  97.             argp++, nargs--;
  98.         }
  99.         if ( sw == 0 && arg[0] == '-' )
  100.         {    sp = 0;
  101.             switch ( arg[1] )
  102.             {
  103.             case 'q':        /* literal string */
  104.             case 'r':        /* read from a file */
  105.             case 'x':        /* hex string */
  106.                 sw = arg[1];
  107.                 break;
  108.             case 's':        /* write a space */
  109.                 fputc(' ', out);
  110.                 break;
  111.             case 'i':        /* read interactively */
  112.                 interact = 1;
  113.                 in = stdin;
  114.                 break;
  115.             case 'X':        /* treat literals as hex */
  116.                 hexx = 1;
  117.                 break;
  118.             case 0:            /* just '-' */
  119.                 sw = '-';
  120.                 break;
  121.             }
  122.         }
  123.         else
  124.           switch ( sw )
  125.         {
  126.         case 0:
  127.             sw = '-';
  128.         case '-':
  129.             if ( hexx ) goto xx;
  130.             if ( sp ) fputc(' ', out);
  131.             fputs(arg, out);
  132.             sp = 1;
  133.             break;
  134.         case 'q':
  135.             sw = 0;
  136.             fputs(arg, out);
  137.             break;
  138.         case 'r':
  139.             sw = 0;
  140.             in = fopen(arg, "r");
  141.             if ( in == NULL ) exit(1);
  142.             interact = 1;
  143.             break;
  144.         case 'x':
  145. xx:        {    char *xp;
  146.             unsigned int xchr = 1;
  147.             for ( xp = arg; *xp; xp++ )
  148.             {    char ch = *xp;
  149.                 if ( !isxdigit(ch) ) return 1;
  150.                 xchr <<= 4;
  151.                 xchr += (isdigit(ch) ? ch - '0' :
  152.                      (isupper(ch) ? tolower(ch) : ch)
  153.                       - 'a' + 10);
  154.                 if ( xchr >= 0x100 )
  155.                 {    fputc(xchr & 0xff, out);
  156.                     xchr = 1;
  157.                 }
  158.             }
  159.         }    sw = 0;
  160.             break;
  161.         }
  162.     }
  163.     if ( newline ) fputc('\n', out);
  164.     if ( out != stdout ) fclose(out);
  165.     return 0;
  166. }
  167.